home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
visds
/
ddetest.dsc
< prev
next >
Wrap
Text File
|
1999-05-02
|
1KB
|
38 lines
Title DDE Request Test
DIALOG CREATE,DDE Test,-1,0,276,216
DIALOG ADD,TEXT,TEXT1,10,10,,,DDE Server:
DIALOG ADD,EDIT,edServer,8,82,,,Progman
DIALOG ADD,TEXT,TEXT2,30,10,,,DDE Topic:
DIALOG ADD,EDIT,edTopic,28,82,,,Progman
DIALOG ADD,TEXT,TEXT3,50,10,,,DDE Item:
DIALOG ADD,EDIT,edItem,48,82,,,Progman
DIALOG ADD,BUTTON,Link,76,8
DIALOG ADD,LIST,lResult,74,82,,114
DIALOG ADD,STATUS,STATUS,Click the Link button to get the data using DDE
DIALOG ADD,BUTTON,Exit,164,8
DIALOG SHOW
:evloop
wait event
goto @event()
:LinkBUTTON
if @not(%C)
%S = @dlgtext(edServer)
%T = @dlgtext(edTopic)
DDE LINK,%S,%T
if @not(@OK())
dialog set,status,Failed to establish link with %S.
else
dialog set,status,Established link with %S
%C = 1
end
end
%I = @dlgtext(edItem)
list assign,lResult,@DDEITEM(%I)
dialog set,status,@count(lResult) items in list
goto evloop
:exitBUTTON
:close
if %C
DDE TERMINATE
end